home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Win2K GPO 4.xpl < prev    next >
Text File  |  2002-08-02  |  3KB  |  83 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="9"
  3. "COUNT"="2"
  4. "UIPATH 1"="Network\Security\ActiveDirectory"
  5. "UIPATH 2"="System\Security\Group Policy Objects"
  6. "UIPATH 3"="Startup/Shutdown\Startup\Windows NT/2K/XP\60) Windows Launch"
  7. "NAME"="Group Policy Objects (GPO) Enforced Apply"
  8. "VERSION"="1.01"
  9. "OSVERSION"="0001011"
  10. "LANGUAGE"="VBScript"
  11. "TEXT 1"="NA NA"
  12. "DESCRIPTION 1"="For nearly every section of a GPO, a different DLL is responsible to apply this GPO to the local machine. For each of these DLLs, you can configure how it should be applied: Only when a GPO has changed (default) or every time a user logs in (enforced)."
  13. "DESCRIPTION 2"="That there are two different modes for applying GPO allow you to choose what is more important to you: Speed or Security. "
  14. "DESCRIPTION 3"="The default mode (that is, only apply the GPO when there were a change or when it's created), is very fast since this mode simply checks if the GPO has changed. If it hasn't changed since the last time the GPO was applied, the DLL will not do anything and exit directly."
  15. "DESCRIPTION 4"="The enforced mode (that is, always apply the GPO, regardless if there were changes) will make sure that the settings you have defined inside the GPO are 100% applied. However, since they are applied every time the GPO processing starts, they can degrade the performance of this computer while this takes place."
  16. "DESCRIPTION 5"="A checkbox beside an item means: Use Enforced Mode. No checkbox means: Use default mode."
  17. "COMMENT 1"="http://www.microsoft.com/windows2000/techinfo/reskit/en/regentry/93807.htm"
  18. "COMMENT 2"="0 -> Always update policy settings as scheduled. "
  19. "COMMENT 3"="1 -> (or not in the registry) Update policy settings only when the Group Policy object changes."
  20. "AUTHOR"="Xteq Systems"
  21. "CONTACTURL"="http://www.xteq.com"
  22. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  23.  
  24. 'Declaration of some constants
  25. sP="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\GPExtensions\"
  26. sV1="\@"
  27. sV2="\NoGPOListChanges"
  28.  
  29.  
  30.  
  31. Dim aryLoc()
  32. Dim iCount
  33.  
  34. 'Called when the Plugin is started
  35. SUB Plugin_Initialize
  36.  iCount=RegEnumPaths(sP)
  37.  
  38.  'count how many real items we have
  39.  if iCount>0 then
  40.     'redim array
  41.     ReDim aryLoc(iCount)
  42.     for l=1 to iCount
  43.         aryLoc(l)=RegEnumElement(l)
  44.  
  45.         'get the name 
  46.         s=sP & RegEnumElement(l) & sV1
  47.         s=RegReadValue(s)
  48.         Call SetUIElement(l,s)
  49.  
  50.         'get the state of the enfore extension
  51.         s=sP & RegEnumElement(l) & sV2
  52.         i=RegReadValue(s)
  53.         if i=0 then Call SetUIElementEx(l,true)
  54.     next
  55.  else
  56.     Disable
  57.  end if
  58. End Sub
  59.  
  60. 'Called when the Plugin should validate the Data the user has entered
  61. SUB Plugin_CheckData(ElementIndex)
  62. END SUB
  63.  
  64. 'Called when the Plugin should apply the changes
  65. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  66.  for l=1 to iCount
  67.      s=sP & RegEnumElement(l) & sV2
  68.      b=GetUIElementEx(l)
  69.  
  70.      if b=true then
  71.         Call RegWriteValue(s,0,2)
  72.      else
  73.         Call RegWriteValue(s,1,2)        
  74.      end if
  75.  next
  76.  
  77. End Sub
  78.  
  79.  
  80. 'Called when the Plugin is about to be removed from memory
  81. SUB Plugin_Terminate
  82. END SUB
  83.